home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / videoedt / videoedt.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  74.9 KB  |  2,601 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   previewMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Video Preview"
  11.     :menu-item-labels       ("Play entire edit" "Play part of edit..." )
  12.     :menu-item-label-types  (:string :string )
  13.     :menu-item-states       (:active :active )
  14.     :menu-item-defaults     (t nil )
  15.     :initial-selections     (nil nil )
  16.     :menu-item-handlers     (PreviewStartEnd EditPreview )
  17.     :menu-item-menus        (nil nil )
  18.     :menu-item-colors       ("" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (previewMenu "Play entire edit")
  24.         :when                   (Notify )
  25.         :to                     (previewMenu "Play entire edit")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (PreviewStartEnd)
  29.         )
  30.         (
  31.         :from                   (previewMenu "Play part of edit...")
  32.         :when                   (Notify )
  33.         :to                     (previewMenu "Play part of edit...")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (EditPreview)
  37.         )
  38.     )
  39. )
  40. (
  41.     :type                   :menu
  42.     :name                   editAudioMenu
  43.     :help                   ""
  44.     :columns                1
  45.     :menu-type              :command
  46.     :menu-handler           nil
  47.     :menu-title             "Stereo"
  48.     :menu-item-labels       ("Stereo" "Right" "Left" "Mute" )
  49.     :menu-item-label-types  (:string :string :string :string )
  50.     :menu-item-states       (:active :active :active :active )
  51.     :menu-item-defaults     (t nil nil nil )
  52.     :initial-selections     (nil nil nil nil )
  53.     :menu-item-handlers     (EditAudioStereo EditAudioRight EditAudioLeft EditAudioMute )
  54.     :menu-item-menus        (nil nil nil nil )
  55.     :menu-item-colors       ("" "" "" "" )
  56.     :pinnable               t
  57.     :user-data              ()
  58.     :actions                (
  59.         (
  60.         :from                   (editAudioMenu "Stereo")
  61.         :when                   (Notify )
  62.         :to                     (editAudioMenu "Stereo")
  63.         :function_type          CallFunction
  64.         :arg_type               ()
  65.         :action                 (EditAudioStereo)
  66.         )
  67.         (
  68.         :from                   (editAudioMenu "Right")
  69.         :when                   (Notify )
  70.         :to                     (editAudioMenu "Right")
  71.         :function_type          CallFunction
  72.         :arg_type               ()
  73.         :action                 (EditAudioRight)
  74.         )
  75.         (
  76.         :from                   (editAudioMenu "Left")
  77.         :when                   (Notify )
  78.         :to                     (editAudioMenu "Left")
  79.         :function_type          CallFunction
  80.         :arg_type               ()
  81.         :action                 (EditAudioLeft)
  82.         )
  83.         (
  84.         :from                   (editAudioMenu "Mute")
  85.         :when                   (Notify )
  86.         :to                     (editAudioMenu "Mute")
  87.         :function_type          CallFunction
  88.         :arg_type               ()
  89.         :action                 (EditAudioMute)
  90.         )
  91.     )
  92. )
  93. (
  94.     :type                   :menu
  95.     :name                   DocMenu
  96.     :help                   ""
  97.     :columns                1
  98.     :menu-type              :command
  99.     :menu-handler           nil
  100.     :menu-title             ""
  101.     :menu-item-labels       ("Open" "Save" "Save As..." "Close File" "Close Window" )
  102.     :menu-item-label-types  (:string :string :string :string :string )
  103.     :menu-item-states       (:active :active :active :active :active )
  104.     :menu-item-defaults     (nil nil nil nil nil )
  105.     :initial-selections     (nil nil nil nil nil )
  106.     :menu-item-handlers     (FileLoad FileSave FileSaveAs EditCloseFile EditCloseWindow )
  107.     :menu-item-menus        (nil nil nil nil nil )
  108.     :menu-item-colors       ("" "" "" "" "" )
  109.     :pinnable               t
  110.     :user-data              ()
  111.     :actions                (
  112.         (
  113.         :from                   (DocMenu "Open")
  114.         :when                   (Notify )
  115.         :to                     (DocMenu "Open")
  116.         :function_type          CallFunction
  117.         :arg_type               ()
  118.         :action                 (FileLoad)
  119.         )
  120.         (
  121.         :from                   (DocMenu "Save")
  122.         :when                   (Notify )
  123.         :to                     (DocMenu "Save")
  124.         :function_type          CallFunction
  125.         :arg_type               ()
  126.         :action                 (FileSave)
  127.         )
  128.         (
  129.         :from                   (DocMenu "Save As...")
  130.         :when                   (Notify )
  131.         :to                     (DocMenu "Save As...")
  132.         :function_type          CallFunction
  133.         :arg_type               ()
  134.         :action                 (FileSaveAs)
  135.         )
  136.         (
  137.         :from                   (DocMenu "Close File")
  138.         :when                   (Notify )
  139.         :to                     (DocMenu "Close File")
  140.         :function_type          CallFunction
  141.         :arg_type               ()
  142.         :action                 (EditCloseFile)
  143.         )
  144.         (
  145.         :from                   (DocMenu "Close Window")
  146.         :when                   (Notify )
  147.         :to                     (DocMenu "Close Window")
  148.         :function_type          CallFunction
  149.         :arg_type               ()
  150.         :action                 (EditCloseWindow)
  151.         )
  152.     )
  153. )
  154. (
  155.     :type                   :base-window
  156.     :name                   window1
  157.     :owner                  nil
  158.     :width                  230
  159.     :height                 419
  160.     :background-color       "BG1"
  161.     :foreground-color       ""
  162.     :label                  "Videodisc Remote Controller"
  163.     :label-type             :string
  164.     :initial-state          :open
  165.     :show-footer            t
  166.     :resizable              t
  167.     :icon-file              "icons/VideoEditIcon"
  168.     :icon-label             ""
  169.     :icon-mask-file         ""
  170.     :event-handler          nil
  171.     :user-data              ()
  172.     :actions                ()
  173. )
  174. (
  175.     :type                   :control-area
  176.     :name                   remoteCtrlControls
  177.     :owner                  window1
  178.     :help                   ""
  179.     :x                      0
  180.     :y                      0
  181.     :width                  230
  182.     :height                 184
  183.     :background-color       "BG1"
  184.     :foreground-color       "Black"
  185.     :initial-state          :visible
  186.     :show-border            t
  187.     :menu                   nil
  188.     :event-handler          nil
  189.     :user-data              ()
  190.     :actions                ()
  191. )
  192. (
  193.     :type                   :button
  194.     :name                   optionsButton
  195.     :owner                  remoteCtrlControls
  196.     :help                   "Opens Options popup."
  197.     :x                      12
  198.     :y                      12
  199.     :width                  75
  200.     :height                 19
  201.     :constant-width         nil
  202.     :button-type            :normal
  203.     :foreground-color       "Black"
  204.     :label                  "Options..."
  205.     :label-type             :string
  206.     :initial-state          :active
  207.     :menu                   nil
  208.     :notify-handler         Options
  209.     :event-handler          nil
  210.     :user-data              ()
  211.     :actions                (
  212.         (
  213.         :from                   (window1 optionsButton)
  214.         :when                   (Notify )
  215.         :to                     (window1 optionsButton)
  216.         :function_type          CallFunction
  217.         :arg_type               ()
  218.         :action                 (Options)
  219.         )
  220.     )
  221. )
  222. (
  223.     :type                   :button
  224.     :name                   editButton
  225.     :owner                  remoteCtrlControls
  226.     :help                   "Opens Edit List popup."
  227.     :x                      100
  228.     :y                      12
  229.     :width                  55
  230.     :height                 19
  231.     :constant-width         nil
  232.     :button-type            :normal
  233.     :foreground-color       "Black"
  234.     :label                  " Edit..."
  235.     :label-type             :string
  236.     :initial-state          :active
  237.     :menu                   nil
  238.     :notify-handler         Edit
  239.     :event-handler          nil
  240.     :user-data              ()
  241.     :actions                (
  242.         (
  243.         :from                   (window1 editButton)
  244.         :when                   (Notify )
  245.         :to                     (window1 editButton)
  246.         :function_type          CallFunction
  247.         :arg_type               ()
  248.         :action                 (Edit)
  249.         )
  250.     )
  251. )
  252. (
  253.     :type                   :button
  254.     :name                   quitButton
  255.     :owner                  remoteCtrlControls
  256.     :help                   "Quits the application."
  257.     :x                      168
  258.     :y                      12
  259.     :width                  57
  260.     :height                 19
  261.     :constant-width         nil
  262.     :button-type            :normal
  263.     :foreground-color       "Black"
  264.     :label                  " Quit  "
  265.     :label-type             :string
  266.     :initial-state          :active
  267.     :menu                   nil
  268.     :notify-handler         Quit
  269.     :event-handler          nil
  270.     :user-data              ()
  271.     :actions                (
  272.         (
  273.         :from                   (window1 quitButton)
  274.         :when                   (Notify )
  275.         :to                     (window1 quitButton)
  276.         :function_type          CallFunction
  277.         :arg_type               ()
  278.         :action                 (Quit)
  279.         )
  280.     )
  281. )
  282. (
  283.     :type                   :text-field
  284.     :name                   frameTxt
  285.     :owner                  remoteCtrlControls
  286.     :help                   "Shows frame address."
  287.     :x                      48
  288.     :y                      44
  289.     :width                  132
  290.     :height                 15
  291.     :value-x                105
  292.     :value-y                44
  293.     :value-length           5
  294.     :stored-length          5
  295.     :rows                   3
  296.     :foreground-color       "Black"
  297.     :text-type              :numeric
  298.     :label                  "Frame: "
  299.     :label-type             :string
  300.     :layout-type            :horizontal
  301.     :value-underlined       t
  302.     :max-value              54000
  303.     :min-value              0
  304.     :initial-value          0
  305.     :initial-state          :active
  306.     :read-only              nil
  307.     :notify-handler         SearchKbd
  308.     :event-handler          nil
  309.     :user-data              ()
  310.     :actions                (
  311.         (
  312.         :from                   (window1 frameTxt)
  313.         :when                   (Notify )
  314.         :to                     (window1 frameTxt)
  315.         :function_type          CallFunction
  316.         :arg_type               ()
  317.         :action                 (SearchKbd)
  318.         )
  319.     )
  320. )
  321. (
  322.     :type                   :button
  323.     :name                   Num1
  324.     :owner                  remoteCtrlControls
  325.     :help                   ""
  326.     :x                      16
  327.     :y                      76
  328.     :width                  58
  329.     :height                 19
  330.     :constant-width         nil
  331.     :button-type            :normal
  332.     :foreground-color       "Black"
  333.     :label                  "    1    "
  334.     :label-type             :string
  335.     :initial-state          :active
  336.     :menu                   nil
  337.     :notify-handler         One
  338.     :event-handler          nil
  339.     :user-data              ()
  340.     :actions                (
  341.         (
  342.         :from                   (window1 Num1)
  343.         :when                   (Notify )
  344.         :to                     (window1 Num1)
  345.         :function_type          CallFunction
  346.         :arg_type               ()
  347.         :action                 (One)
  348.         )
  349.     )
  350. )
  351. (
  352.     :type                   :button
  353.     :name                   Num2
  354.     :owner                  remoteCtrlControls
  355.     :help                   ""
  356.     :x                      88
  357.     :y                      76
  358.     :width                  58
  359.     :height                 19
  360.     :constant-width         nil
  361.     :button-type            :normal
  362.     :foreground-color       "Black"
  363.     :label                  "    2    "
  364.     :label-type             :string
  365.     :initial-state          :active
  366.     :menu                   nil
  367.     :notify-handler         Two
  368.     :event-handler          nil
  369.     :user-data              ()
  370.     :actions                (
  371.         (
  372.         :from                   (window1 Num2)
  373.         :when                   (Notify )
  374.         :to                     (window1 Num2)
  375.         :function_type          CallFunction
  376.         :arg_type               ()
  377.         :action                 (Two)
  378.         )
  379.     )
  380. )
  381. (
  382.     :type                   :button
  383.     :name                   Num3
  384.     :owner                  remoteCtrlControls
  385.     :help                   ""
  386.     :x                      160
  387.     :y                      76
  388.     :width                  58
  389.     :height                 19
  390.     :constant-width         nil
  391.     :button-type            :normal
  392.     :foreground-color       "Black"
  393.     :label                  "    3    "
  394.     :label-type             :string
  395.     :initial-state          :active
  396.     :menu                   nil
  397.     :notify-handler         Three
  398.     :event-handler          nil
  399.     :user-data              ()
  400.     :actions                (
  401.         (
  402.         :from                   (window1 Num3)
  403.         :when                   (Notify )
  404.         :to                     (window1 Num3)
  405.         :function_type          CallFunction
  406.         :arg_type               ()
  407.         :action                 (Three)
  408.         )
  409.     )
  410. )
  411. (
  412.     :type                   :button
  413.     :name                   Num4
  414.     :owner                  remoteCtrlControls
  415.     :help                   ""
  416.     :x                      16
  417.     :y                      100
  418.     :width                  58
  419.     :height                 19
  420.     :constant-width         nil
  421.     :button-type            :normal
  422.     :foreground-color       "Black"
  423.     :label                  "    4    "
  424.     :label-type             :string
  425.     :initial-state          :active
  426.     :menu                   nil
  427.     :notify-handler         Four
  428.     :event-handler          nil
  429.     :user-data              ()
  430.     :actions                (
  431.         (
  432.         :from                   (window1 Num4)
  433.         :when                   (Notify )
  434.         :to                     (window1 Num4)
  435.         :function_type          CallFunction
  436.         :arg_type               ()
  437.         :action                 (Four)
  438.         )
  439.     )
  440. )
  441. (
  442.     :type                   :button
  443.     :name                   Num5
  444.     :owner                  remoteCtrlControls
  445.     :help                   ""
  446.     :x                      88
  447.     :y                      100
  448.     :width                  58
  449.     :height                 19
  450.     :constant-width         nil
  451.     :button-type            :normal
  452.     :foreground-color       "Black"
  453.     :label                  "    5    "
  454.     :label-type             :string
  455.     :initial-state          :active
  456.     :menu                   nil
  457.     :notify-handler         Five
  458.     :event-handler          nil
  459.     :user-data              ()
  460.     :actions                (
  461.         (
  462.         :from                   (window1 Num5)
  463.         :when                   (Notify )
  464.         :to                     (window1 Num5)
  465.         :function_type          CallFunction
  466.         :arg_type               ()
  467.         :action                 (Five)
  468.         )
  469.     )
  470. )
  471. (
  472.     :type                   :button
  473.     :name                   Num6
  474.     :owner                  remoteCtrlControls
  475.     :help                   ""
  476.     :x                      160
  477.     :y                      100
  478.     :width                  58
  479.     :height                 19
  480.     :constant-width         nil
  481.     :button-type            :normal
  482.     :foreground-color       "Black"
  483.     :label                  "    6    "
  484.     :label-type             :string
  485.     :initial-state          :active
  486.     :menu                   nil
  487.     :notify-handler         Six
  488.     :event-handler          nil
  489.     :user-data              ()
  490.     :actions                (
  491.         (
  492.         :from                   (window1 Num6)
  493.         :when                   (Notify )
  494.         :to                     (window1 Num6)
  495.         :function_type          CallFunction
  496.         :arg_type               ()
  497.         :action                 (Six)
  498.         )
  499.     )
  500. )
  501. (
  502.     :type                   :button
  503.     :name                   Num7
  504.     :owner                  remoteCtrlControls
  505.     :help                   ""
  506.     :x                      16
  507.     :y                      124
  508.     :width                  58
  509.     :height                 19
  510.     :constant-width         nil
  511.     :button-type            :normal
  512.     :foreground-color       "Black"
  513.     :label                  "    7    "
  514.     :label-type             :string
  515.     :initial-state          :active
  516.     :menu                   nil
  517.     :notify-handler         Seven
  518.     :event-handler          nil
  519.     :user-data              ()
  520.     :actions                (
  521.         (
  522.         :from                   (window1 Num7)
  523.         :when                   (Notify )
  524.         :to                     (window1 Num7)
  525.         :function_type          CallFunction
  526.         :arg_type               ()
  527.         :action                 (Seven)
  528.         )
  529.     )
  530. )
  531. (
  532.     :type                   :button
  533.     :name                   Num8
  534.     :owner                  remoteCtrlControls
  535.     :help                   ""
  536.     :x                      88
  537.     :y                      124
  538.     :width                  58
  539.     :height                 19
  540.     :constant-width         nil
  541.     :button-type            :normal
  542.     :foreground-color       "Black"
  543.     :label                  "    8    "
  544.     :label-type             :string
  545.     :initial-state          :active
  546.     :menu                   nil
  547.     :notify-handler         Eight
  548.     :event-handler          nil
  549.     :user-data              ()
  550.     :actions                (
  551.         (
  552.         :from                   (window1 Num8)
  553.         :when                   (Notify )
  554.         :to                     (window1 Num8)
  555.         :function_type          CallFunction
  556.         :arg_type               ()
  557.         :action                 (Eight)
  558.         )
  559.     )
  560. )
  561. (
  562.     :type                   :button
  563.     :name                   Num9
  564.     :owner                  remoteCtrlControls
  565.     :help                   ""
  566.     :x                      160
  567.     :y                      124
  568.     :width                  58
  569.     :height                 19
  570.     :constant-width         nil
  571.     :button-type            :normal
  572.     :foreground-color       "Black"
  573.     :label                  "    9    "
  574.     :label-type             :string
  575.     :initial-state          :active
  576.     :menu                   nil
  577.     :notify-handler         Nine
  578.     :event-handler          nil
  579.     :user-data              ()
  580.     :actions                (
  581.         (
  582.         :from                   (window1 Num9)
  583.         :when                   (Notify )
  584.         :to                     (window1 Num9)
  585.         :function_type          CallFunction
  586.         :arg_type               ()
  587.         :action                 (Nine)
  588.         )
  589.     )
  590. )
  591. (
  592.     :type                   :button
  593.     :name                   searchButton
  594.     :owner                  remoteCtrlControls
  595.     :help                   "Searches for the frame address in the
  596. text field above labelled \"Frame\"."
  597.     :x                      16
  598.     :y                      148
  599.     :width                  58
  600.     :height                 19
  601.     :constant-width         nil
  602.     :button-type            :normal
  603.     :foreground-color       "Black"
  604.     :label                  "Search"
  605.     :label-type             :string
  606.     :initial-state          :active
  607.     :menu                   nil
  608.     :notify-handler         Search
  609.     :event-handler          nil
  610.     :user-data              ()
  611.     :actions                (
  612.         (
  613.         :from                   (window1 searchButton)
  614.         :when                   (Notify )
  615.         :to                     (window1 searchButton)
  616.         :function_type          CallFunction
  617.         :arg_type               ()
  618.         :action                 (Search)
  619.         )
  620.     )
  621. )
  622. (
  623.     :type                   :button
  624.     :name                   Num0
  625.     :owner                  remoteCtrlControls
  626.     :help                   ""
  627.     :x                      88
  628.     :y                      148
  629.     :width                  58
  630.     :height                 19
  631.     :constant-width         nil
  632.     :button-type            :normal
  633.     :foreground-color       "Black"
  634.     :label                  "    0    "
  635.     :label-type             :string
  636.     :initial-state          :active
  637.     :menu                   nil
  638.     :notify-handler         Zero
  639.     :event-handler          nil
  640.     :user-data              ()
  641.     :actions                (
  642.         (
  643.         :from                   (window1 Num0)
  644.         :when                   (Notify )
  645.         :to                     (window1 Num0)
  646.         :function_type          CallFunction
  647.         :arg_type               ()
  648.         :action                 (Zero)
  649.         )
  650.     )
  651. )
  652. (
  653.     :type                   :button
  654.     :name                   currFrameButton
  655.     :owner                  remoteCtrlControls
  656.     :help                   "Gets current frame."
  657.     :x                      160
  658.     :y                      148
  659.     :width                  56
  660.     :height                 19
  661.     :constant-width         nil
  662.     :button-type            :normal
  663.     :foreground-color       "Black"
  664.     :label                  "    ?    "
  665.     :label-type             :string
  666.     :initial-state          :active
  667.     :menu                   nil
  668.     :notify-handler         CurrentFrame
  669.     :event-handler          nil
  670.     :user-data              ()
  671.     :actions                (
  672.         (
  673.         :from                   (window1 currFrameButton)
  674.         :when                   (Notify )
  675.         :to                     (window1 currFrameButton)
  676.         :function_type          CallFunction
  677.         :arg_type               ()
  678.         :action                 (CurrentFrame)
  679.         )
  680.     )
  681. )
  682. (
  683.     :type                   :control-area
  684.     :name                   remoteIconControls
  685.     :owner                  window1
  686.     :help                   ""
  687.     :x                      0
  688.     :y                      183
  689.     :width                  230
  690.     :height                 235
  691.     :background-color       "BG1"
  692.     :foreground-color       ""
  693.     :initial-state          :visible
  694.     :show-border            t
  695.     :menu                   nil
  696.     :event-handler          nil
  697.     :user-data              ()
  698.     :actions                ()
  699. )
  700. (
  701.     :type                   :button
  702.     :name                   pauseButton
  703.     :owner                  remoteIconControls
  704.     :help                   "Toggles between pause (still video) and
  705. playback."
  706.     :x                      20
  707.     :y                      8
  708.     :width                  42
  709.     :height                 25
  710.     :constant-width         nil
  711.     :button-type            :normal
  712.     :foreground-color       "Black"
  713.     :label                  "icons/pauseIcon"
  714.     :label-type             :glyph
  715.     :initial-state          :active
  716.     :menu                   nil
  717.     :notify-handler         Pause
  718.     :event-handler          nil
  719.     :user-data              ()
  720.     :actions                (
  721.         (
  722.         :from                   (window1 pauseButton)
  723.         :when                   (Notify )
  724.         :to                     (window1 pauseButton)
  725.         :function_type          CallFunction
  726.         :arg_type               ()
  727.         :action                 (Pause)
  728.         )
  729.     )
  730. )
  731. (
  732.     :type                   :button
  733.     :name                   playButton
  734.     :owner                  remoteIconControls
  735.     :help                   "Set device in playback mode."
  736.     :x                      92
  737.     :y                      8
  738.     :width                  42
  739.     :height                 25
  740.     :constant-width         nil
  741.     :button-type            :normal
  742.     :foreground-color       "Black"
  743.     :label                  "icons/playIcon"
  744.     :label-type             :glyph
  745.     :initial-state          :active
  746.     :menu                   nil
  747.     :notify-handler         Play
  748.     :event-handler          nil
  749.     :user-data              ()
  750.     :actions                (
  751.         (
  752.         :from                   (window1 playButton)
  753.         :when                   (Notify )
  754.         :to                     (window1 playButton)
  755.         :function_type          CallFunction
  756.         :arg_type               ()
  757.         :action                 (Play)
  758.         )
  759.     )
  760. )
  761. (
  762.     :type                   :button
  763.     :name                   stopButton
  764.     :owner                  remoteIconControls
  765.     :help                   "Stops playback. Video mutes."
  766.     :x                      160
  767.     :y                      8
  768.     :width                  42
  769.     :height                 25
  770.     :constant-width         nil
  771.     :button-type            :normal
  772.     :foreground-color       "Black"
  773.     :label                  "icons/stopIcon"
  774.     :label-type             :glyph
  775.     :initial-state          :active
  776.     :menu                   nil
  777.     :notify-handler         Stop
  778.     :event-handler          nil
  779.     :user-data              ()
  780.     :actions                (
  781.         (
  782.         :from                   (window1 stopButton)
  783.         :when                   (Notify )
  784.         :to                     (window1 stopButton)
  785.         :function_type          CallFunction
  786.         :arg_type               ()
  787.         :action                 (Stop)
  788.         )
  789.     )
  790. )
  791. (
  792.     :type                   :button
  793.     :name                   scanRevButton
  794.     :owner                  remoteIconControls
  795.     :help                   "Scans reverse."
  796.     :x                      64
  797.     :y                      48
  798.     :width                  42
  799.     :height                 22
  800.     :constant-width         nil
  801.     :button-type            :normal
  802.     :foreground-color       "Black"
  803.     :label                  "icons/rwIcon"
  804.     :label-type             :glyph
  805.     :initial-state          :active
  806.     :menu                   nil
  807.     :notify-handler         ScanReverse
  808.     :event-handler          nil
  809.     :user-data              ()
  810.     :actions                (
  811.         (
  812.         :from                   (window1 scanRevButton)
  813.         :when                   (Notify )
  814.         :to                     (window1 scanRevButton)
  815.         :function_type          CallFunction
  816.         :arg_type               ()
  817.         :action                 (ScanReverse)
  818.         )
  819.     )
  820. )
  821. (
  822.     :type                   :button
  823.     :name                   scanFwdButton
  824.     :owner                  remoteIconControls
  825.     :help                   "Scans forward."
  826.     :x                      124
  827.     :y                      48
  828.     :width                  42
  829.     :height                 22
  830.     :constant-width         nil
  831.     :button-type            :normal
  832.     :foreground-color       "Black"
  833.     :label                  "icons/ffIcon"
  834.     :label-type             :glyph
  835.     :initial-state          :active
  836.     :menu                   nil
  837.     :notify-handler         ScanForward
  838.     :event-handler          nil
  839.     :user-data              ()
  840.     :actions                (
  841.         (
  842.         :from                   (window1 scanFwdButton)
  843.         :when                   (Notify )
  844.         :to                     (window1 scanFwdButton)
  845.         :function_type          CallFunction
  846.         :arg_type               ()
  847.         :action                 (ScanForward)
  848.         )
  849.     )
  850. )
  851. (
  852.     :type                   :button
  853.     :name                   revSkipButton
  854.     :owner                  remoteIconControls
  855.     :help                   "Searches to the start of the current chapter."
  856.     :x                      12
  857.     :y                      96
  858.     :width                  42
  859.     :height                 22
  860.     :constant-width         nil
  861.     :button-type            :normal
  862.     :foreground-color       "Black"
  863.     :label                  "icons/rIndexIcon"
  864.     :label-type             :glyph
  865.     :initial-state          :active
  866.     :menu                   nil
  867.     :notify-handler         ReverseSkip
  868.     :event-handler          nil
  869.     :user-data              ()
  870.     :actions                (
  871.         (
  872.         :from                   (window1 revSkipButton)
  873.         :when                   (Notify )
  874.         :to                     (window1 revSkipButton)
  875.         :function_type          CallFunction
  876.         :arg_type               ()
  877.         :action                 (ReverseSkip)
  878.         )
  879.     )
  880. )
  881. (
  882.     :type                   :button
  883.     :name                   revStepButton
  884.     :owner                  remoteIconControls
  885.     :help                   "Stills video and reverses video by one frame."
  886.     :x                      72
  887.     :y                      96
  888.     :width                  42
  889.     :height                 22
  890.     :constant-width         nil
  891.     :button-type            :normal
  892.     :foreground-color       "Black"
  893.     :label                  "icons/rStepIcon"
  894.     :label-type             :glyph
  895.     :initial-state          :active
  896.     :menu                   nil
  897.     :notify-handler         ReverseStep
  898.     :event-handler          nil
  899.     :user-data              ()
  900.     :actions                (
  901.         (
  902.         :from                   (window1 revStepButton)
  903.         :when                   (Notify )
  904.         :to                     (window1 revStepButton)
  905.         :function_type          CallFunction
  906.         :arg_type               ()
  907.         :action                 (ReverseStep)
  908.         )
  909.     )
  910. )
  911. (
  912.     :type                   :button
  913.     :name                   fwdStepButton
  914.     :owner                  remoteIconControls
  915.     :help                   "Stills video and advances picture by one
  916. frame."
  917.     :x                      120
  918.     :y                      96
  919.     :width                  42
  920.     :height                 22
  921.     :constant-width         nil
  922.     :button-type            :normal
  923.     :foreground-color       "Black"
  924.     :label                  "icons/fStepIcon"
  925.     :label-type             :glyph
  926.     :initial-state          :active
  927.     :menu                   nil
  928.     :notify-handler         ForwardStep
  929.     :event-handler          nil
  930.     :user-data              ()
  931.     :actions                (
  932.         (
  933.         :from                   (window1 fwdStepButton)
  934.         :when                   (Notify )
  935.         :to                     (window1 fwdStepButton)
  936.         :function_type          CallFunction
  937.         :arg_type               ()
  938.         :action                 (ForwardStep)
  939.         )
  940.     )
  941. )
  942. (
  943.     :type                   :button
  944.     :name                   fwdSkipButton
  945.     :owner                  remoteIconControls
  946.     :help                   "Skips to the next chapter."
  947.     :x                      176
  948.     :y                      96
  949.     :width                  42
  950.     :height                 22
  951.     :constant-width         nil
  952.     :button-type            :normal
  953.     :foreground-color       "Black"
  954.     :label                  "icons/fIndexIcon"
  955.     :label-type             :glyph
  956.     :initial-state          :active
  957.     :menu                   nil
  958.     :notify-handler         ForwardSkip
  959.     :event-handler          nil
  960.     :user-data              ()
  961.     :actions                (
  962.         (
  963.         :from                   (window1 fwdSkipButton)
  964.         :when                   (Notify )
  965.         :to                     (window1 fwdSkipButton)
  966.         :function_type          CallFunction
  967.         :arg_type               ()
  968.         :action                 (ForwardSkip)
  969.         )
  970.     )
  971. )
  972. (
  973.     :type                   :text-field
  974.     :name                   speedTxt
  975.     :owner                  remoteIconControls
  976.     :help                   ""
  977.     :x                      32
  978.     :y                      144
  979.     :width                  96
  980.     :height                 15
  981.     :value-x                88
  982.     :value-y                144
  983.     :value-length           5
  984.     :stored-length          5
  985.     :rows                   3
  986.     :foreground-color       "Black"
  987.     :text-type              :alphanumeric
  988.     :label                  "Speed :"
  989.     :label-type             :string
  990.     :layout-type            :horizontal
  991.     :value-underlined       t
  992.     :initial-value          ""
  993.     :initial-state          :active
  994.     :read-only              t
  995.     :notify-handler         nil
  996.     :event-handler          nil
  997.     :user-data              ()
  998.     :actions                ()
  999. )
  1000. (
  1001.     :type                   :message
  1002.     :name                   speedMsg
  1003.     :owner                  remoteIconControls
  1004.     :help                   ""
  1005.     :x                      132
  1006.     :y                      144
  1007.     :width                  67
  1008.     :height                 13
  1009.     :foreground-color       ""
  1010.     :label                  "frames/sec"
  1011.     :label-type             :string
  1012.     :label-bold             nil
  1013.     :initial-state          :active
  1014.     :event-handler          nil
  1015.     :user-data              ()
  1016.     :actions                ()
  1017. )
  1018. (
  1019.     :type                   :slider
  1020.     :name                   speedSlider
  1021.     :owner                  remoteIconControls
  1022.     :help                   "Shuttle-knob behavior for playing at 
  1023. different speeds.
  1024. Moving the slider to the right means 
  1025. forward play, and moving it to the left
  1026. means reverse play.
  1027. Upon release of the slider, video stills.
  1028. "
  1029.     :x                      8
  1030.     :y                      172
  1031.     :width                  216
  1032.     :height                 20
  1033.     :value-x                8
  1034.     :value-y                172
  1035.     :slider-width           200
  1036.     :ticks                  0
  1037.     :foreground-color       "Black"
  1038.     :label                  ""
  1039.     :label-type             :string
  1040.     :layout-type            :horizontal
  1041.     :orientation            :horizontal
  1042.     :show-endboxes          nil
  1043.     :show-range             nil
  1044.     :show-value             nil
  1045.     :min-value              -240
  1046.     :max-value              240
  1047.     :min-value-string       ""
  1048.     :max-value-string       ""
  1049.     :min-tick-string        ""
  1050.     :max-tick-string        ""
  1051.     :initial-value          0
  1052.     :initial-state          :active
  1053.     :notify-handler         Speed
  1054.     :event-handler          nil
  1055.     :user-data              ()
  1056.     :actions                (
  1057.         (
  1058.         :from                   (window1 speedSlider)
  1059.         :when                   (Notify )
  1060.         :to                     (window1 speedSlider)
  1061.         :function_type          CallFunction
  1062.         :arg_type               ()
  1063.         :action                 (Speed)
  1064.         )
  1065.     )
  1066. )
  1067. (
  1068.     :type                   :button
  1069.     :name                   ejectButton
  1070.     :owner                  remoteIconControls
  1071.     :help                   "Ejects the disc from the device."
  1072.     :x                      88
  1073.     :y                      200
  1074.     :width                  42
  1075.     :height                 22
  1076.     :constant-width         nil
  1077.     :button-type            :normal
  1078.     :foreground-color       ""
  1079.     :label                  "icons/ejectIcon"
  1080.     :label-type             :glyph
  1081.     :initial-state          :active
  1082.     :menu                   nil
  1083.     :notify-handler         Eject
  1084.     :event-handler          nil
  1085.     :user-data              ()
  1086.     :actions                (
  1087.         (
  1088.         :from                   (window1 ejectButton)
  1089.         :when                   (Notify )
  1090.         :to                     (window1 ejectButton)
  1091.         :function_type          CallFunction
  1092.         :arg_type               ()
  1093.         :action                 (Eject)
  1094.         )
  1095.     )
  1096. )
  1097. (
  1098.     :type                   :popup-window
  1099.     :name                   optionsPopup
  1100.     :owner                  window1
  1101.     :width                  386
  1102.     :height                 227
  1103.     :background-color       "BG1"
  1104.     :foreground-color       ""
  1105.     :label                  "Video Options"
  1106.     :label-type             :string
  1107.     :initial-state          :invisible
  1108.     :show-footer            t
  1109.     :resizable              t
  1110.     :pinned                 t
  1111.     :done-handler           nil
  1112.     :event-handler          nil
  1113.     :user-data              ()
  1114.     :actions                ()
  1115. )
  1116. (
  1117.     :type                   :control-area
  1118.     :name                   optionsControls
  1119.     :owner                  optionsPopup
  1120.     :help                   ""
  1121.     :x                      0
  1122.     :y                      0
  1123.     :width                  385
  1124.     :height                 224
  1125.     :background-color       "BG1"
  1126.     :foreground-color       "Black"
  1127.     :initial-state          :visible
  1128.     :show-border            nil
  1129.     :menu                   nil
  1130.     :event-handler          nil
  1131.     :user-data              ()
  1132.     :actions                ()
  1133. )
  1134. (
  1135.     :type                   :setting
  1136.     :name                   optionsPlayerStg
  1137.     :owner                  optionsControls
  1138.     :help                   "Sets the device to be used with this 
  1139. application."
  1140.     :x                      44
  1141.     :y                      12
  1142.     :width                  121
  1143.     :height                 23
  1144.     :value-x                98
  1145.     :value-y                12
  1146.     :rows                   1
  1147.     :columns                0
  1148.     :layout-type            :horizontal
  1149.     :foreground-color       ""
  1150.     :setting-type           :stack
  1151.     :selection-required     t
  1152.     :label                  "Player:"
  1153.     :label-type             :string
  1154.     :notify-handler         nil
  1155.     :event-handler          nil
  1156.     :choices                ("None" )
  1157.     :choice-label-types     (:string )
  1158.     :choice-colors          ("" )
  1159.     :choice-defaults        (nil )
  1160.     :initial-selections     (nil )
  1161.     :initial-state          :active
  1162.     :user-data              ()
  1163.     :actions                ()
  1164. )
  1165. (
  1166.     :type                   :button
  1167.     :name                   setPlayerButton
  1168.     :owner                  optionsControls
  1169.     :help                   ""
  1170.     :x                      260
  1171.     :y                      16
  1172.     :width                  79
  1173.     :height                 19
  1174.     :constant-width         nil
  1175.     :button-type            :normal
  1176.     :foreground-color       ""
  1177.     :label                  "Set Player"
  1178.     :label-type             :string
  1179.     :initial-state          :active
  1180.     :menu                   nil
  1181.     :notify-handler         SetPlayerHandler
  1182.     :event-handler          nil
  1183.     :user-data              ()
  1184.     :actions                (
  1185.         (
  1186.         :from                   (optionsPopup setPlayerButton)
  1187.         :when                   (Notify )
  1188.         :to                     (optionsPopup setPlayerButton)
  1189.         :function_type          CallFunction
  1190.         :arg_type               ()
  1191.         :action                 (SetPlayerHandler)
  1192.         )
  1193.     )
  1194. )
  1195. (
  1196.     :type                   :setting
  1197.     :name                   optionsPortStg
  1198.     :owner                  optionsControls
  1199.     :help                   "Sets the serial port to which the device
  1200. is connected."
  1201.     :x                      16
  1202.     :y                      40
  1203.     :width                  190
  1204.     :height                 23
  1205.     :value-x                98
  1206.     :value-y                40
  1207.     :rows                   1
  1208.     :columns                0
  1209.     :layout-type            :horizontal
  1210.     :foreground-color       ""
  1211.     :setting-type           :exclusive
  1212.     :selection-required     t
  1213.     :label                  "Serial Port:"
  1214.     :label-type             :string
  1215.     :notify-handler         nil
  1216.     :event-handler          nil
  1217.     :choices                ("Default" "A" "B" )
  1218.     :choice-label-types     (:string :string :string )
  1219.     :choice-colors          ("" "" "" )
  1220.     :initial-selections     (nil nil nil )
  1221.     :initial-state          :active
  1222.     :user-data              ()
  1223.     :actions                ()
  1224. )
  1225. (
  1226.     :type                   :text-field
  1227.     :name                   optionsNetworkHost
  1228.     :owner                  optionsControls
  1229.     :help                   "Sets network host, with which the application
  1230. will register, so as to allow it to 
  1231. communicate with other MAEstro applications
  1232. registered with the same host."
  1233.     :x                      8
  1234.     :y                      76
  1235.     :width                  346
  1236.     :height                 15
  1237.     :value-x                114
  1238.     :value-y                76
  1239.     :value-length           30
  1240.     :stored-length          30
  1241.     :rows                   3
  1242.     :foreground-color       ""
  1243.     :text-type              :alphanumeric
  1244.     :label                  "Network Host :"
  1245.     :label-type             :string
  1246.     :layout-type            :horizontal
  1247.     :value-underlined       t
  1248.     :initial-value          ""
  1249.     :initial-state          :active
  1250.     :read-only              nil
  1251.     :notify-handler         SetNetworkHost
  1252.     :event-handler          nil
  1253.     :user-data              ()
  1254.     :actions                (
  1255.         (
  1256.         :from                   (optionsPopup optionsNetworkHost)
  1257.         :when                   (Notify )
  1258.         :to                     (optionsPopup optionsNetworkHost)
  1259.         :function_type          CallFunction
  1260.         :arg_type               ()
  1261.         :action                 (SetNetworkHost)
  1262.         )
  1263.     )
  1264. )
  1265. (
  1266.     :type                   :setting
  1267.     :name                   optionsAudioStg
  1268.     :owner                  optionsControls
  1269.     :help                   "Sets the audio during device operation."
  1270.     :x                      8
  1271.     :y                      104
  1272.     :width                  243
  1273.     :height                 23
  1274.     :value-x                74
  1275.     :value-y                104
  1276.     :rows                   1
  1277.     :columns                0
  1278.     :layout-type            :horizontal
  1279.     :foreground-color       "Black"
  1280.     :setting-type           :exclusive
  1281.     :selection-required     t
  1282.     :label                  "Audio:    "
  1283.     :label-type             :string
  1284.     :notify-handler         Audio
  1285.     :event-handler          nil
  1286.     :choices                ("Off" "Left" "Right" "Stereo" )
  1287.     :choice-label-types     (:string :string :string :string )
  1288.     :choice-colors          ("" "" "" "" )
  1289.     :initial-selections     (nil nil nil nil )
  1290.     :initial-state          :active
  1291.     :user-data              ()
  1292.     :actions                (
  1293.         (
  1294.         :from                   (optionsPopup optionsAudioStg)
  1295.         :when                   (Notify )
  1296.         :to                     (optionsPopup optionsAudioStg)
  1297.         :function_type          CallFunction
  1298.         :arg_type               ()
  1299.         :action                 (Audio)
  1300.         )
  1301.     )
  1302. )
  1303. (
  1304.     :type                   :setting
  1305.     :name                   optionsSearchStg
  1306.     :owner                  optionsControls
  1307.     :help                   "Sets the mode in which search is carried
  1308. out."
  1309.     :x                      8
  1310.     :y                      144
  1311.     :width                  184
  1312.     :height                 23
  1313.     :value-x                73
  1314.     :value-y                144
  1315.     :rows                   1
  1316.     :columns                0
  1317.     :layout-type            :horizontal
  1318.     :foreground-color       "Black"
  1319.     :setting-type           :exclusive
  1320.     :selection-required     t
  1321.     :label                  "Search:  "
  1322.     :label-type             :string
  1323.     :notify-handler         SearchSet
  1324.     :event-handler          nil
  1325.     :choices                ("Frame" "Chapter" )
  1326.     :choice-label-types     (:string :string )
  1327.     :choice-colors          ("" "" )
  1328.     :initial-selections     (nil nil )
  1329.     :initial-state          :active
  1330.     :user-data              ()
  1331.     :actions                (
  1332.         (
  1333.         :from                   (optionsPopup optionsSearchStg)
  1334.         :when                   (Notify )
  1335.         :to                     (optionsPopup optionsSearchStg)
  1336.         :function_type          CallFunction
  1337.         :arg_type               ()
  1338.         :action                 (SearchSet)
  1339.         )
  1340.     )
  1341. )
  1342. (
  1343.     :type                   :setting
  1344.     :name                   optionsDisplayStg
  1345.     :owner                  optionsControls
  1346.     :help                   "Toggles address display between on and off."
  1347.     :x                      232
  1348.     :y                      144
  1349.     :width                  134
  1350.     :height                 23
  1351.     :value-x                296
  1352.     :value-y                144
  1353.     :rows                   1
  1354.     :columns                0
  1355.     :layout-type            :horizontal
  1356.     :foreground-color       "Black"
  1357.     :setting-type           :exclusive
  1358.     :selection-required     t
  1359.     :label                  "Display:"
  1360.     :label-type             :string
  1361.     :notify-handler         DisplaySelect
  1362.     :event-handler          nil
  1363.     :choices                ("Off" "On" )
  1364.     :choice-label-types     (:string :string )
  1365.     :choice-colors          ("" "" )
  1366.     :initial-selections     (nil nil )
  1367.     :initial-state          :active
  1368.     :user-data              ()
  1369.     :actions                (
  1370.         (
  1371.         :from                   (optionsPopup optionsDisplayStg)
  1372.         :when                   (Notify )
  1373.         :to                     (optionsPopup optionsDisplayStg)
  1374.         :function_type          CallFunction
  1375.         :arg_type               ()
  1376.         :action                 (DisplaySelect)
  1377.         )
  1378.     )
  1379. )
  1380. (
  1381.     :type                   :button
  1382.     :name                   optionsInfoButton
  1383.     :owner                  optionsControls
  1384.     :help                   "Opens Info popup."
  1385.     :x                      72
  1386.     :y                      192
  1387.     :width                  55
  1388.     :height                 19
  1389.     :constant-width         nil
  1390.     :button-type            :normal
  1391.     :foreground-color       ""
  1392.     :label                  "Info ..."
  1393.     :label-type             :string
  1394.     :initial-state          :active
  1395.     :menu                   nil
  1396.     :notify-handler         Info
  1397.     :event-handler          nil
  1398.     :user-data              ()
  1399.     :actions                (
  1400.         (
  1401.         :from                   (optionsPopup optionsInfoButton)
  1402.         :when                   (Notify )
  1403.         :to                     (optionsPopup optionsInfoButton)
  1404.         :function_type          CallFunction
  1405.         :arg_type               ()
  1406.         :action                 (Info)
  1407.         )
  1408.     )
  1409. )
  1410. (
  1411.     :type                   :button
  1412.     :name                   optionsDoneButton
  1413.     :owner                  optionsControls
  1414.     :help                   "Closes Options popup."
  1415.     :x                      248
  1416.     :y                      192
  1417.     :width                  49
  1418.     :height                 19
  1419.     :constant-width         nil
  1420.     :button-type            :normal
  1421.     :foreground-color       "Black"
  1422.     :label                  "Done"
  1423.     :label-type             :string
  1424.     :initial-state          :active
  1425.     :menu                   nil
  1426.     :notify-handler         Done
  1427.     :event-handler          nil
  1428.     :user-data              ()
  1429.     :actions                (
  1430.         (
  1431.         :from                   (optionsPopup optionsDoneButton)
  1432.         :when                   (Notify )
  1433.         :to                     (optionsPopup optionsDoneButton)
  1434.         :function_type          CallFunction
  1435.         :arg_type               ()
  1436.         :action                 (Done)
  1437.         )
  1438.     )
  1439. )
  1440. (
  1441.     :type                   :popup-window
  1442.     :name                   editPopup
  1443.     :owner                  window1
  1444.     :width                  529
  1445.     :height                 500
  1446.     :background-color       "BG1"
  1447.     :foreground-color       ""
  1448.     :label                  "Untitled"
  1449.     :label-type             :string
  1450.     :initial-state          :invisible
  1451.     :show-footer            nil
  1452.     :resizable              nil
  1453.     :pinned                 t
  1454.     :done-handler           nil
  1455.     :event-handler          nil
  1456.     :user-data              ()
  1457.     :actions                ()
  1458. )
  1459. (
  1460.     :type                   :control-area
  1461.     :name                   editFileControls
  1462.     :owner                  editPopup
  1463.     :help                   ""
  1464.     :x                      0
  1465.     :y                      0
  1466.     :width                  528
  1467.     :height                 40
  1468.     :background-color       "BG1"
  1469.     :foreground-color       "Black"
  1470.     :initial-state          :visible
  1471.     :show-border            t
  1472.     :menu                   nil
  1473.     :event-handler          nil
  1474.     :user-data              ()
  1475.     :actions                ()
  1476. )
  1477. (
  1478.     :type                   :button
  1479.     :name                   editDocButton
  1480.     :owner                  editFileControls
  1481.     :help                   "Opens Edit List Document and puts it into
  1482. the Edit List."
  1483.     :x                      28
  1484.     :y                      12
  1485.     :width                  94
  1486.     :height                 19
  1487.     :constant-width         nil
  1488.     :button-type            :normal
  1489.     :foreground-color       "Black"
  1490.     :label                  "Document"
  1491.     :label-type             :string
  1492.     :initial-state          :active
  1493.     :menu                   DocMenu
  1494.     :notify-handler         nil
  1495.     :event-handler          nil
  1496.     :user-data              ()
  1497.     :actions                ()
  1498. )
  1499. (
  1500.     :type                   :control-area
  1501.     :name                   editScrollListControls
  1502.     :owner                  editPopup
  1503.     :help                   ""
  1504.     :x                      0
  1505.     :y                      39
  1506.     :width                  529
  1507.     :height                 235
  1508.     :background-color       "BG1"
  1509.     :foreground-color       ""
  1510.     :initial-state          :visible
  1511.     :show-border            t
  1512.     :menu                   nil
  1513.     :event-handler          nil
  1514.     :user-data              ()
  1515.     :actions                ()
  1516. )
  1517. (
  1518.     :type                   :message
  1519.     :name                   editListMsg
  1520.     :owner                  editScrollListControls
  1521.     :help                   ""
  1522.     :x                      236
  1523.     :y                      16
  1524.     :width                  56
  1525.     :height                 13
  1526.     :foreground-color       "Black"
  1527.     :label                  "Edit List"
  1528.     :label-type             :string
  1529.     :label-bold             t
  1530.     :initial-state          :active
  1531.     :event-handler          nil
  1532.     :user-data              ()
  1533.     :actions                ()
  1534. )
  1535. (
  1536.     :type                   :message
  1537.     :name                   editNumEditMsg
  1538.     :owner                  editScrollListControls
  1539.     :help                   ""
  1540.     :x                      396
  1541.     :y                      17
  1542.     :width                  88
  1543.     :height                 13
  1544.     :foreground-color       "Black"
  1545.     :label                  "No. of Edits : 0"
  1546.     :label-type             :string
  1547.     :label-bold             nil
  1548.     :initial-state          :active
  1549.     :event-handler          nil
  1550.     :user-data              ()
  1551.     :actions                ()
  1552. )
  1553. (
  1554.     :type                   :message
  1555.     :name                   editTableHeader
  1556.     :owner                  editScrollListControls
  1557.     :help                   ""
  1558.     :x                      24
  1559.     :y                      48
  1560.     :width                  388
  1561.     :height                 13
  1562.     :foreground-color       "Black"
  1563.     :label                  "  Edit #           Label                         Start         End      Audio "
  1564.     :label-type             :string
  1565.     :label-bold             t
  1566.     :initial-state          :active
  1567.     :event-handler          nil
  1568.     :user-data              ()
  1569.     :actions                ()
  1570. )
  1571. (
  1572.     :type                   :message
  1573.     :name                   editTableHeader2
  1574.     :owner                  editScrollListControls
  1575.     :help                   ""
  1576.     :x                      436
  1577.     :y                      48
  1578.     :width                  41
  1579.     :height                 13
  1580.     :foreground-color       ""
  1581.     :label                  "Speed"
  1582.     :label-type             :string
  1583.     :label-bold             t
  1584.     :initial-state          :active
  1585.     :event-handler          nil
  1586.     :user-data              ()
  1587.     :actions                ()
  1588. )
  1589. (
  1590.     :type                   :scrolling-list
  1591.     :name                   editScrollList
  1592.     :owner                  editScrollListControls
  1593.     :help                   "Displays edits."
  1594.     :x                      4
  1595.     :y                      72
  1596.     :width                  490
  1597.     :height                 146
  1598.     :value-x                4
  1599.     :value-y                72
  1600.     :rows                   7
  1601.     :foreground-color       "Black"
  1602.     :label                  ""
  1603.     :title                  ""
  1604.     :label-type             :string
  1605.     :layout-type            :horizontal
  1606.     :read-only              nil
  1607.     :multiple-selections    nil
  1608.     :selection-required     nil
  1609.     :initial-state          :active
  1610.     :droppable              nil
  1611.     :default-drop-site      nil
  1612.     :menu                   nil
  1613.     :notify-handler         List
  1614.     :event-handler          nil
  1615.     :initial-list-values    ()
  1616.     :initial-list-glyphs    ()
  1617.     :initial-selections     ()
  1618.     :user-data              ()
  1619.     :actions                (
  1620.         (
  1621.         :from                   (editPopup editScrollList)
  1622.         :when                   (Notify )
  1623.         :to                     (editPopup editScrollList)
  1624.         :function_type          CallFunction
  1625.         :arg_type               ()
  1626.         :action                 (List)
  1627.         )
  1628.     )
  1629. )
  1630. (
  1631.     :type                   :control-area
  1632.     :name                   editSelectionControls
  1633.     :owner                  editPopup
  1634.     :help                   ""
  1635.     :x                      0
  1636.     :y                      273
  1637.     :width                  529
  1638.     :height                 226
  1639.     :background-color       "BG1"
  1640.     :foreground-color       ""
  1641.     :initial-state          :visible
  1642.     :show-border            t
  1643.     :menu                   nil
  1644.     :event-handler          nil
  1645.     :user-data              ()
  1646.     :actions                ()
  1647. )
  1648. (
  1649.     :type                   :message
  1650.     :name                   editNewEditMsg
  1651.     :owner                  editSelectionControls
  1652.     :help                   ""
  1653.     :x                      176
  1654.     :y                      16
  1655.     :width                  189
  1656.     :height                 13
  1657.     :foreground-color       "Black"
  1658.     :label                  "Current Selection : New Edit"
  1659.     :label-type             :string
  1660.     :label-bold             t
  1661.     :initial-state          :active
  1662.     :event-handler          nil
  1663.     :user-data              ()
  1664.     :actions                ()
  1665. )
  1666. (
  1667.     :type                   :text-field
  1668.     :name                   editStartTxt
  1669.     :owner                  editSelectionControls
  1670.     :help                   "Start frame for current selection."
  1671.     :x                      16
  1672.     :y                      48
  1673.     :width                  130
  1674.     :height                 15
  1675.     :value-x                71
  1676.     :value-y                48
  1677.     :value-length           5
  1678.     :stored-length          5
  1679.     :rows                   3
  1680.     :foreground-color       "Black"
  1681.     :text-type              :numeric
  1682.     :label                  "Start  : "
  1683.     :label-type             :string
  1684.     :layout-type            :horizontal
  1685.     :value-underlined       t
  1686.     :max-value              99999
  1687.     :min-value              0
  1688.     :initial-value          0
  1689.     :initial-state          :active
  1690.     :read-only              nil
  1691.     :notify-handler         nil
  1692.     :event-handler          nil
  1693.     :user-data              ()
  1694.     :actions                ()
  1695. )
  1696. (
  1697.     :type                   :button
  1698.     :name                   editGetStartButton
  1699.     :owner                  editSelectionControls
  1700.     :help                   "Gets the current frame address as the
  1701. start of the current selection."
  1702.     :x                      160
  1703.     :y                      48
  1704.     :width                  34
  1705.     :height                 19
  1706.     :constant-width         nil
  1707.     :button-type            :normal
  1708.     :foreground-color       "Black"
  1709.     :label                  "<-"
  1710.     :label-type             :string
  1711.     :initial-state          :active
  1712.     :menu                   nil
  1713.     :notify-handler         GetStart
  1714.     :event-handler          nil
  1715.     :user-data              ()
  1716.     :actions                (
  1717.         (
  1718.         :from                   (editPopup editGetStartButton)
  1719.         :when                   (Notify )
  1720.         :to                     (editPopup editGetStartButton)
  1721.         :function_type          CallFunction
  1722.         :arg_type               ()
  1723.         :action                 (GetStart)
  1724.         )
  1725.     )
  1726. )
  1727. (
  1728.     :type                   :message
  1729.     :name                   editInstruct1
  1730.     :owner                  editSelectionControls
  1731.     :help                   ""
  1732.     :x                      204
  1733.     :y                      56
  1734.     :width                  113
  1735.     :height                 13
  1736.     :foreground-color       "Black"
  1737.     :label                  "Get current frame "
  1738.     :label-type             :string
  1739.     :label-bold             nil
  1740.     :initial-state          :active
  1741.     :event-handler          nil
  1742.     :user-data              ()
  1743.     :actions                ()
  1744. )
  1745. (
  1746.     :type                   :text-field
  1747.     :name                   editEndTxt
  1748.     :owner                  editSelectionControls
  1749.     :help                   "End frame of current selection."
  1750.     :x                      16
  1751.     :y                      76
  1752.     :width                  131
  1753.     :height                 15
  1754.     :value-x                72
  1755.     :value-y                76
  1756.     :value-length           5
  1757.     :stored-length          5
  1758.     :rows                   3
  1759.     :foreground-color       "Black"
  1760.     :text-type              :numeric
  1761.     :label                  "End    : "
  1762.     :label-type             :string
  1763.     :layout-type            :horizontal
  1764.     :value-underlined       t
  1765.     :max-value              99999
  1766.     :min-value              0
  1767.     :initial-value          0
  1768.     :initial-state          :active
  1769.     :read-only              nil
  1770.     :notify-handler         nil
  1771.     :event-handler          nil
  1772.     :user-data              ()
  1773.     :actions                ()
  1774. )
  1775. (
  1776.     :type                   :button
  1777.     :name                   editGetEndButton
  1778.     :owner                  editSelectionControls
  1779.     :help                   "Gets the current frame address as
  1780. the end of the current selection."
  1781.     :x                      160
  1782.     :y                      76
  1783.     :width                  34
  1784.     :height                 19
  1785.     :constant-width         nil
  1786.     :button-type            :normal
  1787.     :foreground-color       "Black"
  1788.     :label                  "<-"
  1789.     :label-type             :string
  1790.     :initial-state          :active
  1791.     :menu                   nil
  1792.     :notify-handler         GetEnd
  1793.     :event-handler          nil
  1794.     :user-data              ()
  1795.     :actions                (
  1796.         (
  1797.         :from                   (editPopup editGetEndButton)
  1798.         :when                   (Notify )
  1799.         :to                     (editPopup editGetEndButton)
  1800.         :function_type          CallFunction
  1801.         :arg_type               ()
  1802.         :action                 (GetEnd)
  1803.         )
  1804.     )
  1805. )
  1806. (
  1807.     :type                   :message
  1808.     :name                   editInstruct2
  1809.     :owner                  editSelectionControls
  1810.     :help                   ""
  1811.     :x                      208
  1812.     :y                      76
  1813.     :width                  109
  1814.     :height                 13
  1815.     :foreground-color       "Black"
  1816.     :label                  "number from disc"
  1817.     :label-type             :string
  1818.     :label-bold             nil
  1819.     :initial-state          :active
  1820.     :event-handler          nil
  1821.     :user-data              ()
  1822.     :actions                ()
  1823. )
  1824. (
  1825.     :type                   :text-field
  1826.     :name                   editSpeedTxt
  1827.     :owner                  editSelectionControls
  1828.     :help                   "Speed setting for current selection.
  1829. Whether any particular speed setting
  1830. can be performed for segment play depends
  1831. on the device."
  1832.     :x                      356
  1833.     :y                      80
  1834.     :width                  123
  1835.     :height                 15
  1836.     :value-x                408
  1837.     :value-y                80
  1838.     :value-length           3
  1839.     :stored-length          3
  1840.     :rows                   3
  1841.     :foreground-color       ""
  1842.     :text-type              :numeric
  1843.     :label                  "Speed:"
  1844.     :label-type             :string
  1845.     :layout-type            :horizontal
  1846.     :value-underlined       t
  1847.     :max-value              600
  1848.     :min-value              0
  1849.     :initial-value          0
  1850.     :initial-state          :active
  1851.     :read-only              nil
  1852.     :notify-handler         EditSpeedStg
  1853.     :event-handler          nil
  1854.     :user-data              ()
  1855.     :actions                (
  1856.         (
  1857.         :from                   (editPopup editSpeedTxt)
  1858.         :when                   (Notify )
  1859.         :to                     (editPopup editSpeedTxt)
  1860.         :function_type          CallFunction
  1861.         :arg_type               ()
  1862.         :action                 (EditSpeedStg)
  1863.         )
  1864.     )
  1865. )
  1866. (
  1867.     :type                   :message
  1868.     :name                   editSpeedMsg
  1869.     :owner                  editSelectionControls
  1870.     :help                   ""
  1871.     :x                      416
  1872.     :y                      104
  1873.     :width                  75
  1874.     :height                 13
  1875.     :foreground-color       ""
  1876.     :label                  "(frames/sec)"
  1877.     :label-type             :string
  1878.     :label-bold             nil
  1879.     :initial-state          :active
  1880.     :event-handler          nil
  1881.     :user-data              ()
  1882.     :actions                ()
  1883. )
  1884. (
  1885.     :type                   :text-field
  1886.     :name                   editDurTxt
  1887.     :owner                  editSelectionControls
  1888.     :help                   "Approximate duration of current selection."
  1889.     :x                      16
  1890.     :y                      108
  1891.     :width                  228
  1892.     :height                 15
  1893.     :value-x                180
  1894.     :value-y                108
  1895.     :value-length           8
  1896.     :stored-length          80
  1897.     :rows                   3
  1898.     :foreground-color       "Black"
  1899.     :text-type              :alphanumeric
  1900.     :label                  "Approximate duration :"
  1901.     :label-type             :string
  1902.     :layout-type            :horizontal
  1903.     :value-underlined       t
  1904.     :initial-value          ""
  1905.     :initial-state          :active
  1906.     :read-only              t
  1907.     :notify-handler         nil
  1908.     :event-handler          nil
  1909.     :user-data              ()
  1910.     :actions                ()
  1911. )
  1912. (
  1913.     :type                   :message
  1914.     :name                   editDurSecMsg
  1915.     :owner                  editSelectionControls
  1916.     :help                   ""
  1917.     :x                      252
  1918.     :y                      108
  1919.     :width                  48
  1920.     :height                 13
  1921.     :foreground-color       "Black"
  1922.     :label                  "seconds"
  1923.     :label-type             :string
  1924.     :label-bold             nil
  1925.     :initial-state          :active
  1926.     :event-handler          nil
  1927.     :user-data              ()
  1928.     :actions                ()
  1929. )
  1930. (
  1931.     :type                   :button
  1932.     :name                   editAudioMenuButton
  1933.     :owner                  editSelectionControls
  1934.     :help                   "Audio settings for current selection.
  1935. Whether any particular setting can
  1936. be played during segment play depends
  1937. on the device."
  1938.     :x                      420
  1939.     :y                      136
  1940.     :width                  70
  1941.     :height                 19
  1942.     :constant-width         nil
  1943.     :button-type            :normal
  1944.     :foreground-color       ""
  1945.     :label                  "Stereo"
  1946.     :label-type             :string
  1947.     :initial-state          :active
  1948.     :menu                   editAudioMenu
  1949.     :notify-handler         nil
  1950.     :event-handler          nil
  1951.     :user-data              ()
  1952.     :actions                ()
  1953. )
  1954. (
  1955.     :type                   :text-field
  1956.     :name                   editLabelTxt
  1957.     :owner                  editSelectionControls
  1958.     :help                   "Type in label for current selection here."
  1959.     :x                      16
  1960.     :y                      140
  1961.     :width                  229
  1962.     :height                 15
  1963.     :value-x                69
  1964.     :value-y                140
  1965.     :value-length           22
  1966.     :stored-length          22
  1967.     :rows                   3
  1968.     :foreground-color       "Black"
  1969.     :text-type              :alphanumeric
  1970.     :label                  "Label :"
  1971.     :label-type             :string
  1972.     :layout-type            :horizontal
  1973.     :value-underlined       t
  1974.     :initial-value          ""
  1975.     :initial-state          :active
  1976.     :read-only              nil
  1977.     :notify-handler         nil
  1978.     :event-handler          nil
  1979.     :user-data              ()
  1980.     :actions                ()
  1981. )
  1982. (
  1983.     :type                   :message
  1984.     :name                   editAudioMsg
  1985.     :owner                  editSelectionControls
  1986.     :help                   ""
  1987.     :x                      356
  1988.     :y                      140
  1989.     :width                  42
  1990.     :height                 13
  1991.     :foreground-color       ""
  1992.     :label                  "Audio:"
  1993.     :label-type             :string
  1994.     :label-bold             t
  1995.     :initial-state          :active
  1996.     :event-handler          nil
  1997.     :user-data              ()
  1998.     :actions                ()
  1999. )
  2000. (
  2001.     :type                   :button
  2002.     :name                   editAddButton
  2003.     :owner                  editSelectionControls
  2004.     :help                   "Adds current selection (including audio
  2005. and speed settings) to the Edit List."
  2006.     :x                      16
  2007.     :y                      176
  2008.     :width                  60
  2009.     :height                 19
  2010.     :constant-width         t
  2011.     :button-type            :normal
  2012.     :foreground-color       "Black"
  2013.     :label                  "    Add"
  2014.     :label-type             :string
  2015.     :initial-state          :active
  2016.     :menu                   nil
  2017.     :notify-handler         EditAdd
  2018.     :event-handler          nil
  2019.     :user-data              ()
  2020.     :actions                (
  2021.         (
  2022.         :from                   (editPopup editAddButton)
  2023.         :when                   (Notify )
  2024.         :to                     (editPopup editAddButton)
  2025.         :function_type          CallFunction
  2026.         :arg_type               ()
  2027.         :action                 (EditAdd)
  2028.         )
  2029.     )
  2030. )
  2031. (
  2032.     :type                   :button
  2033.     :name                   editModButton
  2034.     :owner                  editSelectionControls
  2035.     :help                   "Changes the current selection in the Edit
  2036. List."
  2037.     :x                      112
  2038.     :y                      176
  2039.     :width                  60
  2040.     :height                 19
  2041.     :constant-width         t
  2042.     :button-type            :normal
  2043.     :foreground-color       "Black"
  2044.     :label                  "  Modify"
  2045.     :label-type             :string
  2046.     :initial-state          :active
  2047.     :menu                   nil
  2048.     :notify-handler         EditModify
  2049.     :event-handler          nil
  2050.     :user-data              ()
  2051.     :actions                (
  2052.         (
  2053.         :from                   (editPopup editModButton)
  2054.         :when                   (Notify )
  2055.         :to                     (editPopup editModButton)
  2056.         :function_type          CallFunction
  2057.         :arg_type               ()
  2058.         :action                 (EditModify)
  2059.         )
  2060.     )
  2061. )
  2062. (
  2063.     :type                   :button
  2064.     :name                   editDelButton
  2065.     :owner                  editSelectionControls
  2066.     :help                   "Deletes current selection from Edit List."
  2067.     :x                      216
  2068.     :y                      176
  2069.     :width                  60
  2070.     :height                 19
  2071.     :constant-width         t
  2072.     :button-type            :normal
  2073.     :foreground-color       "Black"
  2074.     :label                  "  Delete"
  2075.     :label-type             :string
  2076.     :initial-state          :active
  2077.     :menu                   nil
  2078.     :notify-handler         EditDelete
  2079.     :event-handler          nil
  2080.     :user-data              ()
  2081.     :actions                (
  2082.         (
  2083.         :from                   (editPopup editDelButton)
  2084.         :when                   (Notify )
  2085.         :to                     (editPopup editDelButton)
  2086.         :function_type          CallFunction
  2087.         :arg_type               ()
  2088.         :action                 (EditDelete)
  2089.         )
  2090.     )
  2091. )
  2092. (
  2093.     :type                   :button
  2094.     :name                   editDelAllButton
  2095.     :owner                  editSelectionControls
  2096.     :help                   "Deletes all edits in Edit List."
  2097.     :x                      312
  2098.     :y                      176
  2099.     :width                  86
  2100.     :height                 19
  2101.     :constant-width         nil
  2102.     :button-type            :normal
  2103.     :foreground-color       "Black"
  2104.     :label                  "Delete All..."
  2105.     :label-type             :string
  2106.     :initial-state          :active
  2107.     :menu                   nil
  2108.     :notify-handler         EditDeleteAll
  2109.     :event-handler          nil
  2110.     :user-data              ()
  2111.     :actions                (
  2112.         (
  2113.         :from                   (editPopup editDelAllButton)
  2114.         :when                   (Notify )
  2115.         :to                     (editPopup editDelAllButton)
  2116.         :function_type          CallFunction
  2117.         :arg_type               ()
  2118.         :action                 (EditDeleteAll)
  2119.         )
  2120.     )
  2121. )
  2122. (
  2123.     :type                   :button
  2124.     :name                   editPreviewButton
  2125.     :owner                  editSelectionControls
  2126.     :help                   ""
  2127.     :x                      420
  2128.     :y                      176
  2129.     :width                  60
  2130.     :height                 19
  2131.     :constant-width         t
  2132.     :button-type            :normal
  2133.     :foreground-color       "Black"
  2134.     :label                  "Preview  "
  2135.     :label-type             :string
  2136.     :initial-state          :active
  2137.     :menu                   previewMenu
  2138.     :notify-handler         nil
  2139.     :event-handler          nil
  2140.     :user-data              ()
  2141.     :actions                ()
  2142. )
  2143. (
  2144.     :type                   :popup-window
  2145.     :name                   previewPopup
  2146.     :owner                  window1
  2147.     :width                  244
  2148.     :height                 172
  2149.     :background-color       ""
  2150.     :foreground-color       ""
  2151.     :label                  "Video Preview"
  2152.     :label-type             :string
  2153.     :initial-state          :invisible
  2154.     :show-footer            nil
  2155.     :resizable              nil
  2156.     :pinned                 nil
  2157.     :done-handler           nil
  2158.     :event-handler          nil
  2159.     :user-data              ()
  2160.     :actions                ()
  2161. )
  2162. (
  2163.     :type                   :control-area
  2164.     :name                   previewControls
  2165.     :owner                  previewPopup
  2166.     :help                   ""
  2167.     :x                      0
  2168.     :y                      0
  2169.     :width                  244
  2170.     :height                 172
  2171.     :background-color       "BG1"
  2172.     :foreground-color       "Black"
  2173.     :initial-state          :visible
  2174.     :show-border            nil
  2175.     :menu                   nil
  2176.     :event-handler          nil
  2177.     :user-data              ()
  2178.     :actions                ()
  2179. )
  2180. (
  2181.     :type                   :message
  2182.     :name                   previewMsg
  2183.     :owner                  previewControls
  2184.     :help                   ""
  2185.     :x                      72
  2186.     :y                      16
  2187.     :width                  108
  2188.     :height                 13
  2189.     :foreground-color       "Black"
  2190.     :label                  "Play Part of Edit"
  2191.     :label-type             :string
  2192.     :label-bold             t
  2193.     :initial-state          :active
  2194.     :event-handler          nil
  2195.     :user-data              ()
  2196.     :actions                ()
  2197. )
  2198. (
  2199.     :type                   :message
  2200.     :name                   previewSecMsg
  2201.     :owner                  previewControls
  2202.     :help                   ""
  2203.     :x                      88
  2204.     :y                      36
  2205.     :width                  72
  2206.     :height                 13
  2207.     :foreground-color       ""
  2208.     :label                  "(in seconds)"
  2209.     :label-type             :string
  2210.     :label-bold             nil
  2211.     :initial-state          :active
  2212.     :event-handler          nil
  2213.     :user-data              ()
  2214.     :actions                ()
  2215. )
  2216. (
  2217.     :type                   :button
  2218.     :name                   previewPlayFirstButton
  2219.     :owner                  previewControls
  2220.     :help                   "Plays first x seconds of current 
  2221. selection."
  2222.     :x                      180
  2223.     :y                      64
  2224.     :width                  38
  2225.     :height                 19
  2226.     :constant-width         nil
  2227.     :button-type            :normal
  2228.     :foreground-color       "Midnight Blue"
  2229.     :label                  "<- "
  2230.     :label-type             :string
  2231.     :initial-state          :active
  2232.     :menu                   nil
  2233.     :notify-handler         PreviewStart
  2234.     :event-handler          nil
  2235.     :user-data              ()
  2236.     :actions                (
  2237.         (
  2238.         :from                   (previewPopup previewPlayFirstButton)
  2239.         :when                   (Notify )
  2240.         :to                     (previewPopup previewPlayFirstButton)
  2241.         :function_type          CallFunction
  2242.         :arg_type               ()
  2243.         :action                 (PreviewStart)
  2244.         )
  2245.     )
  2246. )
  2247. (
  2248.     :type                   :text-field
  2249.     :name                   previewPlayFirstTxt
  2250.     :owner                  previewControls
  2251.     :help                   "Number of seconds from the start of 
  2252. current selection that is to be
  2253. previewed."
  2254.     :x                      11
  2255.     :y                      68
  2256.     :width                  153
  2257.     :height                 15
  2258.     :value-x                93
  2259.     :value-y                68
  2260.     :value-length           3
  2261.     :stored-length          3
  2262.     :rows                   3
  2263.     :foreground-color       "Black"
  2264.     :text-type              :numeric
  2265.     :label                  "Play first : "
  2266.     :label-type             :string
  2267.     :layout-type            :horizontal
  2268.     :value-underlined       t
  2269.     :max-value              999
  2270.     :min-value              0
  2271.     :initial-value          0
  2272.     :initial-state          :active
  2273.     :read-only              nil
  2274.     :notify-handler         PreviewStartTxt
  2275.     :event-handler          nil
  2276.     :user-data              ()
  2277.     :actions                (
  2278.         (
  2279.         :from                   (previewPopup previewPlayFirstTxt)
  2280.         :when                   (Notify )
  2281.         :to                     (previewPopup previewPlayFirstTxt)
  2282.         :function_type          CallFunction
  2283.         :arg_type               ()
  2284.         :action                 (PreviewStartTxt)
  2285.         )
  2286.     )
  2287. )
  2288. (
  2289.     :type                   :button
  2290.     :name                   previewPlayLastButton
  2291.     :owner                  previewControls
  2292.     :help                   "Plays the last x seconds of the
  2293. current selection."
  2294.     :x                      180
  2295.     :y                      96
  2296.     :width                  38
  2297.     :height                 19
  2298.     :constant-width         nil
  2299.     :button-type            :normal
  2300.     :foreground-color       "Midnight Blue"
  2301.     :label                  "<- "
  2302.     :label-type             :string
  2303.     :initial-state          :active
  2304.     :menu                   nil
  2305.     :notify-handler         PreviewEnd
  2306.     :event-handler          nil
  2307.     :user-data              ()
  2308.     :actions                (
  2309.         (
  2310.         :from                   (previewPopup previewPlayLastButton)
  2311.         :when                   (Notify )
  2312.         :to                     (previewPopup previewPlayLastButton)
  2313.         :function_type          CallFunction
  2314.         :arg_type               ()
  2315.         :action                 (PreviewEnd)
  2316.         )
  2317.     )
  2318. )
  2319. (
  2320.     :type                   :text-field
  2321.     :name                   previewPlayLastTxt
  2322.     :owner                  previewControls
  2323.     :help                   "Number of seconds before the end of 
  2324. the current selection to be previewed."
  2325.     :x                      11
  2326.     :y                      100
  2327.     :width                  153
  2328.     :height                 15
  2329.     :value-x                93
  2330.     :value-y                100
  2331.     :value-length           3
  2332.     :stored-length          3
  2333.     :rows                   3
  2334.     :foreground-color       ""
  2335.     :text-type              :numeric
  2336.     :label                  "Play last  : "
  2337.     :label-type             :string
  2338.     :layout-type            :horizontal
  2339.     :value-underlined       t
  2340.     :max-value              100
  2341.     :min-value              0
  2342.     :initial-value          0
  2343.     :initial-state          :active
  2344.     :read-only              nil
  2345.     :notify-handler         PreviewEndTxt
  2346.     :event-handler          nil
  2347.     :user-data              ()
  2348.     :actions                (
  2349.         (
  2350.         :from                   (previewPopup previewPlayLastTxt)
  2351.         :when                   (Notify )
  2352.         :to                     (previewPopup previewPlayLastTxt)
  2353.         :function_type          CallFunction
  2354.         :arg_type               ()
  2355.         :action                 (PreviewEndTxt)
  2356.         )
  2357.     )
  2358. )
  2359. (
  2360.     :type                   :button
  2361.     :name                   previewDoneButton
  2362.     :owner                  previewControls
  2363.     :help                   "Closes Preview popup."
  2364.     :x                      68
  2365.     :y                      132
  2366.     :width                  104
  2367.     :height                 19
  2368.     :constant-width         nil
  2369.     :button-type            :normal
  2370.     :foreground-color       "Black"
  2371.     :label                  "Close window"
  2372.     :label-type             :string
  2373.     :initial-state          :active
  2374.     :menu                   nil
  2375.     :notify-handler         PreviewDone
  2376.     :event-handler          nil
  2377.     :user-data              ()
  2378.     :actions                (
  2379.         (
  2380.         :from                   (previewPopup previewDoneButton)
  2381.         :when                   (Notify )
  2382.         :to                     (previewPopup previewDoneButton)
  2383.         :function_type          CallFunction
  2384.         :arg_type               ()
  2385.         :action                 (PreviewDone)
  2386.         )
  2387.     )
  2388. )
  2389. (
  2390.     :type                   :popup-window
  2391.     :name                   infoPopup
  2392.     :owner                  window1
  2393.     :width                  501
  2394.     :height                 291
  2395.     :background-color       ""
  2396.     :foreground-color       ""
  2397.     :label                  "Video Info"
  2398.     :label-type             :string
  2399.     :initial-state          :invisible
  2400.     :show-footer            nil
  2401.     :resizable              nil
  2402.     :pinned                 nil
  2403.     :done-handler           nil
  2404.     :event-handler          nil
  2405.     :user-data              ()
  2406.     :actions                ()
  2407. )
  2408. (
  2409.     :type                   :control-area
  2410.     :name                   infoControls
  2411.     :owner                  infoPopup
  2412.     :help                   ""
  2413.     :x                      0
  2414.     :y                      0
  2415.     :width                  501
  2416.     :height                 291
  2417.     :background-color       "BG1"
  2418.     :foreground-color       "BG1"
  2419.     :initial-state          :visible
  2420.     :show-border            nil
  2421.     :menu                   nil
  2422.     :event-handler          nil
  2423.     :user-data              ()
  2424.     :actions                ()
  2425. )
  2426. (
  2427.     :type                   :message
  2428.     :name                   infoMsg5
  2429.     :owner                  infoControls
  2430.     :help                   ""
  2431.     :x                      170
  2432.     :y                      16
  2433.     :width                  164
  2434.     :height                 13
  2435.     :foreground-color       "Black"
  2436.     :label                  "Video Edit   Version 1.12"
  2437.     :label-type             :string
  2438.     :label-bold             t
  2439.     :initial-state          :active
  2440.     :event-handler          nil
  2441.     :user-data              ()
  2442.     :actions                ()
  2443. )
  2444. (
  2445.     :type                   :message
  2446.     :name                   infoMsg6
  2447.     :owner                  infoControls
  2448.     :help                   ""
  2449.     :x                      49
  2450.     :y                      48
  2451.     :width                  398
  2452.     :height                 13
  2453.     :foreground-color       "Black"
  2454.     :label                  "An application for annotating video from videodisc (or videotape)"
  2455.     :label-type             :string
  2456.     :label-bold             nil
  2457.     :initial-state          :active
  2458.     :event-handler          nil
  2459.     :user-data              ()
  2460.     :actions                ()
  2461. )
  2462. (
  2463.     :type                   :message
  2464.     :name                   infoMsg7
  2465.     :owner                  infoControls
  2466.     :help                   ""
  2467.     :x                      32
  2468.     :y                      68
  2469.     :width                  430
  2470.     :height                 13
  2471.     :foreground-color       ""
  2472.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  2473.     :label-type             :string
  2474.     :label-bold             nil
  2475.     :initial-state          :active
  2476.     :event-handler          nil
  2477.     :user-data              ()
  2478.     :actions                ()
  2479. )
  2480. (
  2481.     :type                   :message
  2482.     :name                   infoMsg1
  2483.     :owner                  infoControls
  2484.     :help                   ""
  2485.     :x                      192
  2486.     :y                      112
  2487.     :width                  111
  2488.     :height                 13
  2489.     :foreground-color       "Black"
  2490.     :label                  "by Wee-Lee Lim"
  2491.     :label-type             :string
  2492.     :label-bold             t
  2493.     :initial-state          :active
  2494.     :event-handler          nil
  2495.     :user-data              ()
  2496.     :actions                ()
  2497. )
  2498. (
  2499.     :type                   :message
  2500.     :name                   infoMsg3
  2501.     :owner                  infoControls
  2502.     :help                   ""
  2503.     :x                      20
  2504.     :y                      152
  2505.     :width                  457
  2506.     :height                 13
  2507.     :foreground-color       "Black"
  2508.     :label                  "Copyright (C) 1990, 1991, 1992 Libraries and Information Resources (L&IR)"
  2509.     :label-type             :string
  2510.     :label-bold             nil
  2511.     :initial-state          :active
  2512.     :event-handler          nil
  2513.     :user-data              ()
  2514.     :actions                ()
  2515. )
  2516. (
  2517.     :type                   :message
  2518.     :name                   infoMsg2
  2519.     :owner                  infoControls
  2520.     :help                   ""
  2521.     :x                      187
  2522.     :y                      176
  2523.     :width                  122
  2524.     :height                 13
  2525.     :foreground-color       "Black"
  2526.     :label                  " Stanford University"
  2527.     :label-type             :string
  2528.     :label-bold             nil
  2529.     :initial-state          :active
  2530.     :event-handler          nil
  2531.     :user-data              ()
  2532.     :actions                ()
  2533. )
  2534. (
  2535.     :type                   :message
  2536.     :name                   infoMsg4
  2537.     :owner                  infoControls
  2538.     :help                   ""
  2539.     :x                      192
  2540.     :y                      196
  2541.     :width                  119
  2542.     :height                 13
  2543.     :foreground-color       "Black"
  2544.     :label                  "Stanford, California"
  2545.     :label-type             :string
  2546.     :label-bold             nil
  2547.     :initial-state          :active
  2548.     :event-handler          nil
  2549.     :user-data              ()
  2550.     :actions                ()
  2551. )
  2552. (
  2553.     :type                   :message
  2554.     :name                   infoMsg8
  2555.     :owner                  infoControls
  2556.     :help                   ""
  2557.     :x                      94
  2558.     :y                      232
  2559.     :width                  309
  2560.     :height                 13
  2561.     :foreground-color       ""
  2562.     :label                  "For more info, contact maestro@sioux.stanford.edu"
  2563.     :label-type             :string
  2564.     :label-bold             nil
  2565.     :initial-state          :active
  2566.     :event-handler          nil
  2567.     :user-data              ()
  2568.     :actions                ()
  2569. )
  2570. (
  2571.     :type                   :button
  2572.     :name                   infoOkButton
  2573.     :owner                  infoControls
  2574.     :help                   "Closes Info Popup."
  2575.     :x                      230
  2576.     :y                      264
  2577.     :width                  36
  2578.     :height                 19
  2579.     :constant-width         nil
  2580.     :button-type            :normal
  2581.     :foreground-color       "Black"
  2582.     :label                  "OK"
  2583.     :label-type             :string
  2584.     :initial-state          :active
  2585.     :menu                   nil
  2586.     :notify-handler         InfoDone
  2587.     :event-handler          nil
  2588.     :user-data              ()
  2589.     :actions                (
  2590.         (
  2591.         :from                   (infoPopup infoOkButton)
  2592.         :when                   (Notify )
  2593.         :to                     (infoPopup infoOkButton)
  2594.         :function_type          CallFunction
  2595.         :arg_type               ()
  2596.         :action                 (InfoDone)
  2597.         )
  2598.     )
  2599. )
  2600. )
  2601.